home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / curves / cycloid.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  768 b   |  23 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-1.03558, -0.75493, .invisible, .L0, "1");
  3. v2 = .free(1.03558, -0.75493, .invisible, .L0, "2");
  4. l1 = .l.vv(v1, v2, .L0);
  5. v3 = .vonl(l1, 0.774648, -0.75493, .L0, .cross, "Drag Me");
  6. len = .len.vv(v3, v1);
  7. l2 = .l.vlperp(v3, l1, .L0);
  8. v4 = .vonl(l2, 0.774648, -0.588732, .L0, .cross);
  9. ll = .len.vv(v4, v3);
  10. ll1 = .len.divide(len, ll);
  11. ang = .len.f(-1);
  12. ang1 = len.times(ang, ll1);
  13. vv = .v.avv(ang1, v3, v4, .invisible);
  14. l = .l.vv(v4, vv, .invisible, .ray12);
  15. c1 = .c.vv(v4, v3, .yellow, .L0);
  16. v5 = .free(-0.0056338, 0.749296, .L0, "0");
  17. v6 = .free(0.126761, 0.749296, .L0, "Radius");
  18. rad = .len.vv(v5, v6);
  19. cc = .c.vlen(v4, rad, .invisible);
  20. v7 = .v.lc(l, cc, 2, .smear, .L0, .plus);
  21. l3 = .l.vv(v4, v7, .L0);
  22. l4 = .l.vv(v5, v6, .L0);
  23.